home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.46 / stinglibpcq / source / delete.p < prev    next >
Text File  |  1995-03-27  |  330b  |  21 lines
  1. external;
  2.  
  3. {$I "include:utils/stringlib.i"}
  4.  
  5. function Str_Delete(s : string;dep,long : integer) : string;
  6.  
  7. var
  8.     s1 : string;
  9.     c    : integer;
  10.  
  11. begin
  12.     s1 := allocstring(strlen(s)+1-long);
  13.     dep := dep-1;
  14.     for c := 0 to (dep-1) do
  15.         s1[c] := s[c];
  16.     for c := (dep+long) to (strlen(s)-1) do
  17.         s1[c-long] := s[c];
  18.     Str_Delete := s1;
  19. end;
  20.  
  21.